﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->
<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留
checkadmin(1)
dim id,rs,sql,title,author,company,tel,typeid,typename,email,replytype,content,recontent,visible
id=GetIntQueryString("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from [c_comment] where id="&id
rs.open sql,conn,1,1
If Not rs.eof Then 
title=rs("title")
author=rs("author")
company=rs("company")
tel=rs("tel")
email=rs("email")
content=rs("content")
visible=rs("visible")
typeid=rs("typeid")
End If 
rs.close
Set rs=Nothing
recontent=ReHTMLEncode(content)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>编辑留言</title>
<link type="text/css" href="style/style.css" rel="stylesheet" rev="stylesheet"/>
<script type="text/javascript" language="JavaScript" src="admin_js/common.js"></script>
</head>
<body>
<br/>
<form method=post name="rzform" action="comment_save.asp">
<input type="hidden" name="act" value="modifysave">
<input type="hidden" name="id" value="<%=id%>">
<table  cellspacing="0" cellpadding="0" class="table_800">
<tr>
	<th colspan="2">编辑留言</th>
</tr>
<tr class="row">
	<td><font color="red">*</font>&nbsp;&nbsp;标题&nbsp;&nbsp;</td>
	<td><input type="text" id="title" name="title" value="<%=title%>" size="50" maxlength="100">&nbsp;&nbsp;（带<font color="red">*</font>为必填项目）</td>
</tr>
<tr class="row">
	<td>姓名&nbsp;&nbsp;</td>
	<td><input type="text" name="author" value="<%=author%>">（仅作内部联系，不对外公开）</td>
</tr>
<tr class="row">
	<td>公司名称&nbsp;&nbsp;</td>
	<td><input type="text" name="company" size="50" maxlength="100" value="<%=company%>"></td>
</tr>
<tr class="row">
	<td>Email&nbsp;&nbsp;</td>
	<td><input type="text" name="email" value="<%=email%>"></td>
</tr>
<tr class="row">
	<td>联系电话&nbsp;&nbsp;</td>
	<td><input type="text" name="tel" value="<%=tel%>"></td>
</tr>
<tr class="row">
	<td><font color="red">*</font>&nbsp;&nbsp;信息类型&nbsp;&nbsp;</td>
	<td>
<select name="upper" id="upper">
	<%Call ShowTypeOptions("add_modify_comment",typeid,"","",1,1)%>
</select>
</td>
</tr>
<tr class="row">
	<td><font color="red">*</font>&nbsp;&nbsp;详细内容&nbsp;&nbsp;</td>
	<td>
	<textarea name="content" id="content" rows="10" cols="80"><%=recontent%></textarea>
	</td>
</tr>
<tr  class="row">
	<td>审核状态</td>
	<td>&nbsp;
	<input type="radio" name="visible" value="0" <%if visible=0 Then response.write "checked"%>>未审核或审核不通过
	<input type="radio" name="visible" value="1" <%if visible=1 Then response.write "checked"%>>审核通过
	</td>
</tr>
<tr class="row">
	<td colspan="2" class="tdcenter"><input type="button" class="btn" value="保存" onclick="checkForm('modifycomment');" >&nbsp;&nbsp;<input type="reset" class="btn" value="重置" >&nbsp;&nbsp;<input type="button" class="btn"  value="<%out("lang_back")%>" onclick="javascript:location.href='comment_list.asp'"/></td>
</tr>
</table>
</form>
<!--文章信息结束-->
</td>
</tr>
</table>
</body>
</html>